Sub հ()

    Dim Ʈ As Worksheet
    Dim ǹ As PivotTable
    Dim ʵ As PivotField

    For Each Ʈ In ActiveWorkbook.Worksheets
    
        For Each ǹ In Ʈ.PivotTables
        
            ǹ.ManualUpdate = True
    
            For Each ʵ In ǹ.DataFields
            
                If ʵ.Function = xlCount Then
            
                    ʵ.Function = xlSum
                    
                End If
            
            Next
            
            ǹ.ManualUpdate = False
    
        Next
    
    Next

End Sub
